home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1390.dms / var1390.adf / over_to / over_to.amosSourceCode < prev    next >
AMOS Source Code  |  1994-01-24  |  3KB  |  134 lines
  1. Global RD$,MZ,LF
  2. MEANY
  3. Procedure MEANY
  4.    If Not Exist("df0:else") Then BOMB
  5.    Volume 10
  6.    Unpack 9 To 0
  7.    For N=16 To 12 Step -1
  8.       Play 2*N,N/4
  9.    Next N
  10.    Flash Off : Curs Off 
  11.    F$="(fff,10)(f00,10)(ff0,10)(00f,10)(0f0,10)(f0f,10)"
  12.    Colour 17,$444
  13.    Colour 18,$777
  14.    Colour 19,$FFF
  15.    Reserve Zone 5 : Wait Vbl : Limit Mouse 
  16.    Set Zone 1,22,21 To 61,49
  17.    Set Zone 2,200,22 To 282,61
  18.    Set Zone 3,17,124 To 97,187
  19.    Set Zone 4,121,126 To 213,187
  20.    Set Zone 5,224,127 To 306,187
  21.    LF=0
  22.    X Mouse=405 : Y Mouse=83
  23.    HERE:
  24.    Repeat 
  25.       Show On 
  26.       MZ=Mouse Zone
  27.       A$=Inkey$
  28.       SC=Scancode
  29.       If SC=95 Then TEXY
  30.       If MZ<>LF and MZ>0
  31.          Wait Vbl 
  32.          Flash Off 
  33.          If LF>0
  34.             Colour LF+2,$0
  35.          End If 
  36.          LF=MZ
  37.          Flash LF+2,F$
  38.          For N=12 To 16
  39.             Play MZ*N,N/3
  40.          Next N
  41.       End If 
  42.    Until Mouse Click and MZ>0
  43.    If MZ=1
  44.       For N=20 To 5 Step -2
  45.          Play N*2,8-(N/5)
  46.       Next N
  47.       End 
  48.    End If 
  49.    If MZ=2 Then TEXY : Goto HERE
  50.    Cls 0
  51.    MZ=LF
  52.    Paste Icon 100,100,1
  53.    If MZ=3 Then Run "princess.amos"
  54.    If MZ=4 Then Run "bs.amos"
  55.    If MZ=5 Then Run "totris.AMOS"
  56. End Proc
  57. Procedure TEXY
  58.    Colour 1,$F0
  59.    Colour 2,$F00
  60.    If MZ<2 Then RD$="df0:docs/help.doc"
  61.    If MZ=2 Then RD$="df0:docs/intro.doc"
  62.    If MZ=3 Then RD$="df0:docs/maze.doc"
  63.    If MZ=4 Then RD$="df0:docs/beat.doc"
  64.    If MZ=5 Then RD$="df0:docs/shape.doc"
  65.    REDOC
  66.    Colour 2,$F
  67.    Colour 1,$FF0
  68. End Proc
  69. Procedure REDOC
  70.    SCL=26
  71.    If Ntsc Then SCL=20
  72.    Screen Open 1,640,256,4,Hires
  73.    HERE:
  74.    Open In 1,RD$
  75.    L=Lof(1)
  76.    FLG=0
  77.    Paper 2
  78.    Pen 0
  79.    Curs Off 
  80.    Cls 
  81.    C=0
  82.    PP=1
  83.    Z$=""
  84.    Hide 
  85.    For N=1 To L
  86.       X$=Input$(1,1)
  87.       Z$=Z$+X$
  88.       If Asc(X$)=10
  89.          Print " ";
  90.          If PR=1
  91.             P$=Z$
  92.             P=Len(P$) : P$=Left$(P$,P-1)
  93.             Lprint P$
  94.          End If 
  95.          Print Z$ : Cup : Inc C : Z$=""
  96.          If C=SCL
  97.             Print : Centre ">>                  <<" : Pen 3 : Centre "Click that mouse" : Pen 0 : Print : Print : Centre "Page" : Print PP : Inc PP : Repeat : 
  98.             Until Mouse Click : Cls : Locate 0,1 : C=0
  99.          End If 
  100.       End If 
  101.    Next N
  102.    Close 1
  103.    Print : Print 
  104.    Centre "click LEFT button to READ this file AGAIN"
  105.    Print : Print 
  106.    Centre "or RIGHT button to QUIT."
  107.    Repeat 
  108.    Until Mouse Click
  109.    K=Mouse Key
  110.    If K=1 Then Cls : Goto HERE
  111.    If K=2
  112.       Screen Close 1
  113.       Screen 0
  114.    End If 
  115.    Show 
  116. End Proc
  117. Procedure BOMB
  118. Break Off 
  119. Curs Off : Flash Off 
  120. Cls 0 : Paper 0
  121. Locate 0,5
  122. Centre "This is not a complete copy of" : Print 
  123. Centre "KIDS DISK - 2" : Print : Print 
  124. Centre "Please write to me and let me know" : Print 
  125. Centre "where it came from so that I can " : Print 
  126. Centre "go round there and sort them out!" : Print : Print 
  127. Print "     Duncan Moran"
  128. Print "     24 First Avenue, "
  129. Print "     Colwyn Bay,"
  130. Print "     Clwyd,"
  131. Print "     LL28 4DQ "
  132. Do 
  133. Loop 
  134. End Proc